home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / sci / dproc126.lha / demo / v350lin.tst < prev    next >
Text File  |  1993-02-26  |  2KB  |  123 lines
  1. #dsize 40
  2.  
  3. #columns %f %f %f %f %f %f
  4. #queue 1 nu snu ua sua amp samp
  5.  
  6. #math v:=1010/2.98
  7. ; nehmen 1% Fehler an
  8. #math sv:=v*rt2/100
  9. #build gt 'Verst"arkung: $%f4\\pm%f2$' v sv
  10.  
  11. #globtitle gt
  12.  
  13. #title nu "$\nu$"
  14. #unit nu "Hz"
  15. #title snu "$s_\nu$"
  16. #unit snu "Hz"
  17. #title ua "U$_A$"
  18. #unit ua V
  19. #title sua "$s_{U_A}$"
  20. #unit sua V
  21. #title amp "V'"
  22. #rtitle amp "V'($\nu$)"
  23. #gtitle amp "Messung"
  24. #title samp "$s_{V'}$"
  25.  
  26. #math ue:=0.023
  27. #math sue:=0.5*milli
  28. #func ua2amp f(u):=u/ue
  29. #func sua2samp g(amp,u,su):=amp*sqrt((su/u)^2+sqr(sue/ue))
  30.  
  31. #make amp ua2amp ua
  32. #make samp sua2samp amp ua sua
  33.  
  34. ! OK, Let's data
  35.  
  36. #using nu snu ua sua
  37. #prec 0 2
  38. #prec amp 3
  39. #prec nu 5
  40.  
  41. 109.45/0.05/7.4/0.2
  42. 211.1//7.3
  43. 414.65//7.2
  44. 619//7
  45. 825.5/0.5/6.7
  46. 1090.9//6.4
  47. 1395.5//6.0
  48. 1739.2//5.5
  49. 2098.4//5.0
  50. 2476/1/4.5
  51. 2948//4
  52. 3495//3.5
  53.  
  54. #mark gerade
  55.  
  56. 4615/2/3/0.15
  57. 5597/3/2.5
  58. 7047//2
  59. 9363//1.5
  60. 14978//1/0.03
  61. 18415//0.8
  62. 24194/5/0.6
  63. 28460//0.5
  64.  
  65. ! go on -- regress
  66.  
  67. #applog "lintst.log"
  68.  
  69. #build control "Start bei %d" gerade
  70. #logpost control
  71.  
  72. #logreg 3 nu amp 0 gerade
  73.  
  74. ! compute vg
  75.  
  76. #math vg:=(v/rt2*10^DPB)^(1/DPA)
  77. #math lvg:=vg*ln(vg)
  78. #math svg:=sqrt((lvg*(DPSA/a)^2+(DPSB/b)^2)+(vg*sv/v)^2)
  79. #build vgstr "Grenzfrequenz: %f4 +/- %f2" vg svg
  80. #post vgstr
  81. #math svgv:=vg*v*sqrt((svg/vg)^2+(sv/v)^2)
  82. #build vconst "vg*V': %f4 +/- %f2" "vg*v" svgv
  83. #post vconst
  84. #logpost vconst
  85. #logpost vgstr
  86. #logpost gt
  87.  
  88. ! tag it
  89.  
  90. #tagfile "valllin.tag" v350
  91. #build results "%f/%f/%f/%f/%f/%f" v sv vg svg v*vg svgv
  92. #tagpost results
  93.  
  94. #tagfile "reglin.tag" v350
  95. #build regs "%f/%f/%f/%f" v sv DPA DPSA
  96. #tagpost regs
  97.  
  98. ! and genarate some output
  99.  
  100. #term gnuplot
  101. #set logscale xy
  102. #storeset yrange 10:1000
  103.  
  104. #if eepic
  105. #set output v350lin.eep
  106. #endif
  107.  
  108. #ocol nu amp samp
  109. #write "v350lin.dta" "v350lin.gnu"
  110.  
  111. #term latex
  112. #set Corr
  113. #set floathead
  114. #set caption v350lin
  115. #ocol nu snu ua sua amp samp
  116. #write "v350lin.tab"
  117.  
  118. #post gt
  119.  
  120. ! *** DONE ***
  121.  
  122. #flushset
  123.